home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / awklib / eg / prog / dupword.awk < prev    next >
Encoding:
Text File  |  1996-01-11  |  414 b   |  17 lines
  1. # dupword --- find duplicate words in text
  2. # Arnold Robbins, arnold@gnu.ai.mit.edu, Public Domain
  3. # December 1991
  4.  
  5. {
  6.     $0 = tolower($0)
  7.     gsub(/[^A-Za-z0-9 \t]/, "");
  8.     if ($1 == prev)
  9.         printf("%s:%d: duplicate %s\n",
  10.             FILENAME, FNR, $1)
  11.     for (i = 2; i <= NF; i++)
  12.         if ($i == $(i-1))
  13.             printf("%s:%d: duplicate %s\n",
  14.                 FILENAME, FNR, $i)
  15.     prev = $NF
  16. }
  17.